home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / mac / Starware Movie Player / Starware Movie Player.DXR / 00025_REDLED.PIC.ls < prev    next >
Encoding:
Text File  |  1995-04-24  |  837 b   |  36 lines
  1. on mouseDown
  2.   global cdAnimating, movieNumber
  3.   puppetSound("mouse down")
  4.   set variable to the clickOn
  5.   set oldLocV to the locV of sprite variable
  6.   set newLocV to oldLocV + 2
  7.   set the locV of sprite variable to newLocV
  8.   set oldLocH to the locH of sprite variable
  9.   set newLocH to oldLocH + 2
  10.   set the locH of sprite variable to newLocH
  11.   repeat while the stillDown
  12.     updateStage()
  13.   end repeat
  14.   puppetSound(0)
  15.   set cdAnimating to 1
  16.   if movieNumber = 1 then
  17.     go("Movie1Frame1")
  18.   else
  19.     if movieNumber = 2 then
  20.       go("Movie2Frame1")
  21.     else
  22.       if movieNumber = 3 then
  23.         go("Movie3Frame1")
  24.       else
  25.         if movieNumber = 4 then
  26.           go("Movie4Frame1")
  27.         else
  28.           if movieNumber = 5 then
  29.             go("Movie5Frame1")
  30.           end if
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35. end
  36.